home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / CMPLTPAS / GLOAD.PAS < prev    next >
Pascal/Delphi Source File  |  1988-07-24  |  532b  |  25 lines

  1. {<<<< GLoad >>>>}
  2. { From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
  3. { Scott, Foresman & Co. 1988  ISBN 0-673-38355-5 }
  4. { Described in section 19.10 -- Last mod 12/5/87 }
  5.  
  6. PROCEDURE GLoad(GName : String; VAR IOR : Integer);
  7.  
  8. TYPE
  9.   ScreenBuff = ARRAY[0..16383] OF Byte;
  10.  
  11. VAR
  12.   GBuff : ScreenBuff ABSOLUTE $B800 : 0;
  13.   GFile : File;
  14.  
  15. BEGIN
  16.   Assign(GFile,GName);
  17.   {$I-} Reset(GFile,16384); {$I+}
  18.   IOR := IOResult;
  19.   IF IOR = 0 THEN
  20.     BEGIN
  21.       BlockRead(GFile,GBuff,1);
  22.       Close(GFile)
  23.     END
  24. END;
  25.